home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
xevent.t
< prev
next >
Wrap
Text File
|
1990-06-01
|
50KB
|
959 lines
(herald xevent (env tsys (xlib interface)))
(DEFINE (MAKE-XEVENT) (CONS 'XEVENTP (MAKE-BYTEV 96)))
(DEFINE (XEVENT-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XANY-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XANY-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XANY-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XANY-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XANY-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XANY-SEND_EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XANY-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XANY-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XANY-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XANY-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XKEY-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XKEY-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XKEY-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XKEY-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XKEY-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XKEY-SEND_EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XKEY-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XKEY-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XKEY-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XKEY-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XKEY-ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XKEY-ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XKEY-SUBWINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XKEY-SUBWINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XKEY-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XKEY-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XKEY-X X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XKEY-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XKEY-Y X) (MREF-INTEGER (CHK-XEVENTP X) 36))
(DEFINE (XEVENT-XKEY-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
(DEFINE (XEVENT-XKEY-X_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 40))
(DEFINE (XEVENT-XKEY-X_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
(DEFINE (XEVENT-XKEY-Y_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 44))
(DEFINE (XEVENT-XKEY-Y_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
(DEFINE (XEVENT-XKEY-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 48))
(DEFINE (XEVENT-XKEY-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
(DEFINE (XEVENT-XKEY-KEYCODE X) (MREF-INTEGER (CHK-XEVENTP X) 52))
(DEFINE (XEVENT-XKEY-KEYCODE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 52 Y))
(DEFINE (XEVENT-XKEY-SAME_SCREEN X) (MREF-INTEGER (CHK-XEVENTP X) 56))
(DEFINE (XEVENT-XKEY-SAME_SCREEN! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 56 Y))
(DEFINE (XEVENT-XBUTTON-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XBUTTON-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XBUTTON-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XBUTTON-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XBUTTON-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XBUTTON-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XBUTTON-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XBUTTON-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XBUTTON-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XBUTTON-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XBUTTON-ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XBUTTON-ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XBUTTON-SUBWINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XBUTTON-SUBWINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XBUTTON-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XBUTTON-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XBUTTON-X X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XBUTTON-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XBUTTON-Y X) (MREF-INTEGER (CHK-XEVENTP X) 36))
(DEFINE (XEVENT-XBUTTON-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
(DEFINE (XEVENT-XBUTTON-X_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 40))
(DEFINE (XEVENT-XBUTTON-X_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
(DEFINE (XEVENT-XBUTTON-Y_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 44))
(DEFINE (XEVENT-XBUTTON-Y_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
(DEFINE (XEVENT-XBUTTON-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 48))
(DEFINE (XEVENT-XBUTTON-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
(DEFINE (XEVENT-XBUTTON-BUTTON X) (MREF-INTEGER (CHK-XEVENTP X) 52))
(DEFINE (XEVENT-XBUTTON-BUTTON! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 52 Y))
(DEFINE (XEVENT-XBUTTON-SAME_SCREEN X) (MREF-INTEGER (CHK-XEVENTP X) 56))
(DEFINE (XEVENT-XBUTTON-SAME_SCREEN! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 56 Y))
(DEFINE (XEVENT-XMOTION-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XMOTION-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XMOTION-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XMOTION-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XMOTION-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XMOTION-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XMOTION-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XMOTION-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XMOTION-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XMOTION-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XMOTION-ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XMOTION-ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XMOTION-SUBWINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XMOTION-SUBWINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XMOTION-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XMOTION-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XMOTION-X X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XMOTION-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XMOTION-Y X) (MREF-INTEGER (CHK-XEVENTP X) 36))
(DEFINE (XEVENT-XMOTION-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
(DEFINE (XEVENT-XMOTION-X_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 40))
(DEFINE (XEVENT-XMOTION-X_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
(DEFINE (XEVENT-XMOTION-Y_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 44))
(DEFINE (XEVENT-XMOTION-Y_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
(DEFINE (XEVENT-XMOTION-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 48))
(DEFINE (XEVENT-XMOTION-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
(DEFINE (XEVENT-XMOTION-IS_HINT X) (MREF-8-U (CHK-XEVENTP X) 52))
(DEFINE (XEVENT-XMOTION-IS_HINT! X Y) (SET-MREF-8-U! (CHK-XEVENTP X) 52 Y))
(DEFINE (XEVENT-XMOTION-SAME_SCREEN X) (MREF-INTEGER (CHK-XEVENTP X) 53))
(DEFINE (XEVENT-XMOTION-SAME_SCREEN! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 53 Y))
(DEFINE (XEVENT-XCROSSING-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XCROSSING-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XCROSSING-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XCROSSING-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XCROSSING-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XCROSSING-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XCROSSING-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XCROSSING-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XCROSSING-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XCROSSING-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XCROSSING-ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XCROSSING-ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XCROSSING-SUBWINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XCROSSING-SUBWINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XCROSSING-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XCROSSING-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XCROSSING-X X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XCROSSING-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XCROSSING-Y X) (MREF-INTEGER (CHK-XEVENTP X) 36))
(DEFINE (XEVENT-XCROSSING-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
(DEFINE (XEVENT-XCROSSING-X_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 40))
(DEFINE (XEVENT-XCROSSING-X_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
(DEFINE (XEVENT-XCROSSING-Y_ROOT X) (MREF-INTEGER (CHK-XEVENTP X) 44))
(DEFINE (XEVENT-XCROSSING-Y_ROOT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
(DEFINE (XEVENT-XCROSSING-MODE X) (MREF-INTEGER (CHK-XEVENTP X) 48))
(DEFINE (XEVENT-XCROSSING-MODE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
(DEFINE (XEVENT-XCROSSING-DETAIL X) (MREF-INTEGER (CHK-XEVENTP X) 52))
(DEFINE (XEVENT-XCROSSING-DETAIL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 52 Y))
(DEFINE (XEVENT-XCROSSING-SAME_SCREEN X) (MREF-INTEGER (CHK-XEVENTP X) 56))
(DEFINE (XEVENT-XCROSSING-SAME_SCREEN! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 56 Y))
(DEFINE (XEVENT-XCROSSING-FOCUS X) (MREF-INTEGER (CHK-XEVENTP X) 60))
(DEFINE (XEVENT-XCROSSING-FOCUS! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 60 Y))
(DEFINE (XEVENT-XCROSSING-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 64))
(DEFINE (XEVENT-XCROSSING-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 64 Y))
(DEFINE (XEVENT-XFOCUS-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XFOCUS-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XFOCUS-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XFOCUS-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XFOCUS-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XFOCUS-SEND_EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XFOCUS-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XFOCUS-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XFOCUS-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XFOCUS-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XFOCUS-MODE X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XFOCUS-MODE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XFOCUS-DETAIL X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XFOCUS-DETAIL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XEXPOSE-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XEXPOSE-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XEXPOSE-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XEXPOSE-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XEXPOSE-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XEXPOSE-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XEXPOSE-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XEXPOSE-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XEXPOSE-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XEXPOSE-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XEXPOSE-X X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XEXPOSE-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XEXPOSE-Y X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XEXPOSE-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XEXPOSE-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XEXPOSE-WIDTH! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XEXPOSE-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XEXPOSE-HEIGHT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XEXPOSE-COUNT X) (MREF-INTEGER (CHK-XEVENTP X) 36))
(DEFINE (XEVENT-XEXPOSE-COUNT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-TYPE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-SERIAL! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-DRAWABLE X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-DRAWABLE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-X X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-X! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-Y X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-Y! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-WIDTH! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-HEIGHT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-COUNT X) (MREF-INTEGER (CHK-XEVENTP X) 36))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-COUNT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-MAJOR_CODE X) (MREF-INTEGER (CHK-XEVENTP X) 40))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-MAJOR_CODE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-MINOR_CODE X) (MREF-INTEGER (CHK-XEVENTP X) 44))
(DEFINE (XEVENT-XGRAPHICSEXPOSE-MINOR_CODE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
(DEFINE (XEVENT-XNOEXPOSE-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XNOEXPOSE-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XNOEXPOSE-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XNOEXPOSE-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XNOEXPOSE-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XNOEXPOSE-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XNOEXPOSE-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XNOEXPOSE-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XNOEXPOSE-DRAWABLE X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XNOEXPOSE-DRAWABLE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XNOEXPOSE-MAJOR_CODE X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XNOEXPOSE-MAJOR_CODE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XNOEXPOSE-MINOR_CODE X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XNOEXPOSE-MINOR_CODE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XVISIBILITY-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XVISIBILITY-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XVISIBILITY-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XVISIBILITY-SERIAL! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XVISIBILITY-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XVISIBILITY-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XVISIBILITY-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XVISIBILITY-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XVISIBILITY-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XVISIBILITY-WINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XVISIBILITY-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XVISIBILITY-STATE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XCREATEWINDOW-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XCREATEWINDOW-TYPE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XCREATEWINDOW-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XCREATEWINDOW-SERIAL! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XCREATEWINDOW-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XCREATEWINDOW-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XCREATEWINDOW-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XCREATEWINDOW-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XCREATEWINDOW-PARENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XCREATEWINDOW-PARENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XCREATEWINDOW-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XCREATEWINDOW-WINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XCREATEWINDOW-X X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XCREATEWINDOW-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XCREATEWINDOW-Y X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XCREATEWINDOW-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XCREATEWINDOW-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XCREATEWINDOW-WIDTH! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XCREATEWINDOW-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 36))
(DEFINE (XEVENT-XCREATEWINDOW-HEIGHT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
(DEFINE (XEVENT-XCREATEWINDOW-BORDER_WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 40))
(DEFINE (XEVENT-XCREATEWINDOW-BORDER_WIDTH! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
(DEFINE (XEVENT-XCREATEWINDOW-OVERRIDE_REDIRECT X)
(MREF-INTEGER (CHK-XEVENTP X) 44))
(DEFINE (XEVENT-XCREATEWINDOW-OVERRIDE_REDIRECT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
(DEFINE (XEVENT-XDESTROYWINDOW-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XDESTROYWINDOW-TYPE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XDESTROYWINDOW-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XDESTROYWINDOW-SERIAL! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XDESTROYWINDOW-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XDESTROYWINDOW-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XDESTROYWINDOW-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XDESTROYWINDOW-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XDESTROYWINDOW-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XDESTROYWINDOW-EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XDESTROYWINDOW-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XDESTROYWINDOW-WINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XUNMAP-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XUNMAP-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XUNMAP-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XUNMAP-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XUNMAP-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XUNMAP-SEND_EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XUNMAP-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XUNMAP-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XUNMAP-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XUNMAP-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XUNMAP-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XUNMAP-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XUNMAP-FROM_CONFIGURE X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XUNMAP-FROM_CONFIGURE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XMAP-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XMAP-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XMAP-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XMAP-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XMAP-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XMAP-SEND_EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XMAP-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XMAP-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XMAP-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XMAP-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XMAP-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XMAP-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XMAP-OVERRIDE_REDIRECT X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XMAP-OVERRIDE_REDIRECT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XMAPREQUEST-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XMAPREQUEST-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XMAPREQUEST-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XMAPREQUEST-SERIAL! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XMAPREQUEST-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XMAPREQUEST-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XMAPREQUEST-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XMAPREQUEST-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XMAPREQUEST-PARENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XMAPREQUEST-PARENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XMAPREQUEST-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XMAPREQUEST-WINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XREPARENT-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XREPARENT-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XREPARENT-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XREPARENT-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XREPARENT-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XREPARENT-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XREPARENT-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XREPARENT-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XREPARENT-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XREPARENT-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XREPARENT-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XREPARENT-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XREPARENT-PARENT X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XREPARENT-PARENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XREPARENT-X X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XREPARENT-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XREPARENT-Y X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XREPARENT-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XREPARENT-OVERRIDE_REDIRECT X)
(MREF-INTEGER (CHK-XEVENTP X) 36))
(DEFINE (XEVENT-XREPARENT-OVERRIDE_REDIRECT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
(DEFINE (XEVENT-XCONFIGURE-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XCONFIGURE-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XCONFIGURE-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XCONFIGURE-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XCONFIGURE-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XCONFIGURE-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XCONFIGURE-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XCONFIGURE-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XCONFIGURE-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XCONFIGURE-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XCONFIGURE-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XCONFIGURE-WINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XCONFIGURE-X X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XCONFIGURE-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XCONFIGURE-Y X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XCONFIGURE-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XCONFIGURE-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XCONFIGURE-WIDTH! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XCONFIGURE-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 36))
(DEFINE (XEVENT-XCONFIGURE-HEIGHT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
(DEFINE (XEVENT-XCONFIGURE-BORDER_WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 40))
(DEFINE (XEVENT-XCONFIGURE-BORDER_WIDTH! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
(DEFINE (XEVENT-XCONFIGURE-ABOVE X) (MREF-INTEGER (CHK-XEVENTP X) 44))
(DEFINE (XEVENT-XCONFIGURE-ABOVE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
(DEFINE (XEVENT-XCONFIGURE-OVERRIDE_REDIRECT X)
(MREF-INTEGER (CHK-XEVENTP X) 48))
(DEFINE (XEVENT-XCONFIGURE-OVERRIDE_REDIRECT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
(DEFINE (XEVENT-XGRAVITY-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XGRAVITY-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XGRAVITY-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XGRAVITY-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XGRAVITY-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XGRAVITY-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XGRAVITY-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XGRAVITY-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XGRAVITY-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XGRAVITY-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XGRAVITY-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XGRAVITY-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XGRAVITY-X X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XGRAVITY-X! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XGRAVITY-Y X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XGRAVITY-Y! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XRESIZEREQUEST-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XRESIZEREQUEST-TYPE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XRESIZEREQUEST-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XRESIZEREQUEST-SERIAL! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XRESIZEREQUEST-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XRESIZEREQUEST-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XRESIZEREQUEST-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XRESIZEREQUEST-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XRESIZEREQUEST-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XRESIZEREQUEST-WINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XRESIZEREQUEST-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XRESIZEREQUEST-WIDTH! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XRESIZEREQUEST-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XRESIZEREQUEST-HEIGHT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XCONFIGUREREQUEST-TYPE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XCONFIGUREREQUEST-SERIAL! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-SEND_EVENT X)
(MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XCONFIGUREREQUEST-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XCONFIGUREREQUEST-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-PARENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XCONFIGUREREQUEST-PARENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XCONFIGUREREQUEST-WINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-X X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XCONFIGUREREQUEST-X! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-Y X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XCONFIGUREREQUEST-Y! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-WIDTH X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XCONFIGUREREQUEST-WIDTH! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-HEIGHT X) (MREF-INTEGER (CHK-XEVENTP X) 36))
(DEFINE (XEVENT-XCONFIGUREREQUEST-HEIGHT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-BORDER_WIDTH X)
(MREF-INTEGER (CHK-XEVENTP X) 40))
(DEFINE (XEVENT-XCONFIGUREREQUEST-BORDER_WIDTH! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 40 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-ABOVE X) (MREF-INTEGER (CHK-XEVENTP X) 44))
(DEFINE (XEVENT-XCONFIGUREREQUEST-ABOVE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 44 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-DETAIL X) (MREF-INTEGER (CHK-XEVENTP X) 48))
(DEFINE (XEVENT-XCONFIGUREREQUEST-DETAIL! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 48 Y))
(DEFINE (XEVENT-XCONFIGUREREQUEST-VALUE_MASK X)
(MREF-INTEGER (CHK-XEVENTP X) 52))
(DEFINE (XEVENT-XCONFIGUREREQUEST-VALUE_MASK! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 52 Y))
(DEFINE (XEVENT-XCIRCULATE-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XCIRCULATE-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XCIRCULATE-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XCIRCULATE-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XCIRCULATE-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XCIRCULATE-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XCIRCULATE-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XCIRCULATE-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XCIRCULATE-EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XCIRCULATE-EVENT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XCIRCULATE-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XCIRCULATE-WINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XCIRCULATE-PLACE X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XCIRCULATE-PLACE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XCIRCULATEREQUEST-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XCIRCULATEREQUEST-TYPE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XCIRCULATEREQUEST-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XCIRCULATEREQUEST-SERIAL! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XCIRCULATEREQUEST-SEND_EVENT X)
(MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XCIRCULATEREQUEST-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XCIRCULATEREQUEST-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XCIRCULATEREQUEST-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XCIRCULATEREQUEST-PARENT X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XCIRCULATEREQUEST-PARENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XCIRCULATEREQUEST-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XCIRCULATEREQUEST-WINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XCIRCULATEREQUEST-PLACE X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XCIRCULATEREQUEST-PLACE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XPROPERTY-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XPROPERTY-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XPROPERTY-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XPROPERTY-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XPROPERTY-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XPROPERTY-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XPROPERTY-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XPROPERTY-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XPROPERTY-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XPROPERTY-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XPROPERTY-ATOM X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XPROPERTY-ATOM! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XPROPERTY-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XPROPERTY-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XPROPERTY-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XPROPERTY-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XSELECTIONCLEAR-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XSELECTIONCLEAR-TYPE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XSELECTIONCLEAR-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XSELECTIONCLEAR-SERIAL! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XSELECTIONCLEAR-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XSELECTIONCLEAR-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XSELECTIONCLEAR-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XSELECTIONCLEAR-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XSELECTIONCLEAR-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XSELECTIONCLEAR-WINDOW! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XSELECTIONCLEAR-SELECTION X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XSELECTIONCLEAR-SELECTION! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XSELECTIONCLEAR-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XSELECTIONCLEAR-TIME! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XSELECTIONREQUEST-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XSELECTIONREQUEST-TYPE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XSELECTIONREQUEST-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XSELECTIONREQUEST-SERIAL! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XSELECTIONREQUEST-SEND_EVENT X)
(MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XSELECTIONREQUEST-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XSELECTIONREQUEST-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XSELECTIONREQUEST-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XSELECTIONREQUEST-OWNER X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XSELECTIONREQUEST-OWNER! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XSELECTIONREQUEST-REQUESTOR X)
(MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XSELECTIONREQUEST-REQUESTOR! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XSELECTIONREQUEST-SELECTION X)
(MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XSELECTIONREQUEST-SELECTION! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XSELECTIONREQUEST-TARGET X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XSELECTIONREQUEST-TARGET! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XSELECTIONREQUEST-PROPERTY X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XSELECTIONREQUEST-PROPERTY! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XSELECTIONREQUEST-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 36))
(DEFINE (XEVENT-XSELECTIONREQUEST-TIME! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 36 Y))
(DEFINE (XEVENT-XSELECTION-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XSELECTION-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XSELECTION-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XSELECTION-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XSELECTION-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XSELECTION-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XSELECTION-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XSELECTION-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XSELECTION-REQUESTOR X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XSELECTION-REQUESTOR! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XSELECTION-SELECTION X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XSELECTION-SELECTION! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XSELECTION-TARGET X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XSELECTION-TARGET! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XSELECTION-PROPERTY X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XSELECTION-PROPERTY! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XSELECTION-TIME X) (MREF-INTEGER (CHK-XEVENTP X) 32))
(DEFINE (XEVENT-XSELECTION-TIME! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 32 Y))
(DEFINE (XEVENT-XCOLORMAP-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XCOLORMAP-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XCOLORMAP-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XCOLORMAP-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XCOLORMAP-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XCOLORMAP-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XCOLORMAP-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XCOLORMAP-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XCOLORMAP-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XCOLORMAP-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XCOLORMAP-COLORMAP X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XCOLORMAP-COLORMAP! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XCOLORMAP-NEW X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XCOLORMAP-NEW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XCOLORMAP-STATE X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XCOLORMAP-STATE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XCLIENT-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XCLIENT-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XCLIENT-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XCLIENT-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XCLIENT-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XCLIENT-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XCLIENT-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XCLIENT-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XCLIENT-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XCLIENT-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XCLIENT-MESSAGE_TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XCLIENT-MESSAGE_TYPE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XCLIENT-FORMAT X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XCLIENT-FORMAT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XCLIENT-DATA-B X I)
((LAMBDA (X Y I) (MREF-8-U X (FX+ Y (FX* 1 I)))) (CHK-XEVENTP X) 28 I))
(DEFINE (XEVENT-XCLIENT-DATA-B! X I Y)
((LAMBDA (X Y I Z)
(SET-MREF-8-U! X (FX+ Y (FX* 1 I)) ((LAMBDA (X) X) Z)))
(CHK-XEVENTP X)
28
I
Y))
(DEFINE (XEVENT-XCLIENT-DATA-S X I)
((LAMBDA (X Y I) (MREF-16-S X (FX+ Y (FX* 2 I)))) (CHK-XEVENTP X) 28 I))
(DEFINE (XEVENT-XCLIENT-DATA-S! X I Y)
((LAMBDA (X Y I Z)
(SET-MREF-16-S! X (FX+ Y (FX* 2 I)) ((LAMBDA (X) X) Z)))
(CHK-XEVENTP X)
28
I
Y))
(DEFINE (XEVENT-XCLIENT-DATA-L X I)
((LAMBDA (X Y I) (MREF-INTEGER X (FX+ Y (FX* 4 I))))
(CHK-XEVENTP X)
28
I))
(DEFINE (XEVENT-XCLIENT-DATA-L! X I Y)
((LAMBDA (X Y I Z)
(SET-MREF-INTEGER! X (FX+ Y (FX* 4 I)) ((LAMBDA (X) X) Z)))
(CHK-XEVENTP X)
28
I
Y))
(DEFINE (XEVENT-XMAPPING-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XMAPPING-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XMAPPING-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XMAPPING-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XMAPPING-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XMAPPING-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XMAPPING-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XMAPPING-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XMAPPING-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XMAPPING-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XMAPPING-REQUEST X) (MREF-INTEGER (CHK-XEVENTP X) 20))
(DEFINE (XEVENT-XMAPPING-REQUEST! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 20 Y))
(DEFINE (XEVENT-XMAPPING-FIRST_KEYCODE X) (MREF-INTEGER (CHK-XEVENTP X) 24))
(DEFINE (XEVENT-XMAPPING-FIRST_KEYCODE! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 24 Y))
(DEFINE (XEVENT-XMAPPING-COUNT X) (MREF-INTEGER (CHK-XEVENTP X) 28))
(DEFINE (XEVENT-XMAPPING-COUNT! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 28 Y))
(DEFINE (XEVENT-XERROR-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XERROR-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XERROR-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
4))
(DEFINE (XEVENT-XERROR-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
4
Y))
(DEFINE (XEVENT-XERROR-RESOURCEID X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XERROR-RESOURCEID! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XERROR-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 12))
(DEFINE (XEVENT-XERROR-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 12 Y))
(DEFINE (XEVENT-XERROR-ERROR_CODE X) (MREF-8-U (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XERROR-ERROR_CODE! X Y) (SET-MREF-8-U! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XERROR-REQUEST_CODE X) (MREF-8-U (CHK-XEVENTP X) 17))
(DEFINE (XEVENT-XERROR-REQUEST_CODE! X Y) (SET-MREF-8-U! (CHK-XEVENTP X) 17 Y))
(DEFINE (XEVENT-XERROR-MINOR_CODE X) (MREF-8-U (CHK-XEVENTP X) 18))
(DEFINE (XEVENT-XERROR-MINOR_CODE! X Y) (SET-MREF-8-U! (CHK-XEVENTP X) 18 Y))
(DEFINE (XEVENT-XKEYMAP-TYPE X) (MREF-INTEGER (CHK-XEVENTP X) 0))
(DEFINE (XEVENT-XKEYMAP-TYPE! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 0 Y))
(DEFINE (XEVENT-XKEYMAP-SERIAL X) (MREF-INTEGER (CHK-XEVENTP X) 4))
(DEFINE (XEVENT-XKEYMAP-SERIAL! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 4 Y))
(DEFINE (XEVENT-XKEYMAP-SEND_EVENT X) (MREF-INTEGER (CHK-XEVENTP X) 8))
(DEFINE (XEVENT-XKEYMAP-SEND_EVENT! X Y)
(SET-MREF-INTEGER! (CHK-XEVENTP X) 8 Y))
(DEFINE (XEVENT-XKEYMAP-DISPLAY X)
((LAMBDA (X Y) (CONS 'DISPLAYP (MREF-POINTER X Y)))
(CHK-XEVENTP X)
12))
(DEFINE (XEVENT-XKEYMAP-DISPLAY! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-DISPLAYP Z)))
(CHK-XEVENTP X)
12
Y))
(DEFINE (XEVENT-XKEYMAP-WINDOW X) (MREF-INTEGER (CHK-XEVENTP X) 16))
(DEFINE (XEVENT-XKEYMAP-WINDOW! X Y) (SET-MREF-INTEGER! (CHK-XEVENTP X) 16 Y))
(DEFINE (XEVENT-XKEYMAP-KEY_VECTOR X I)
((LAMBDA (X Y I) (MREF-8-U X (FX+ Y (FX* 1 I)))) (CHK-XEVENTP X) 20 I))
(DEFINE (XEVENT-XKEYMAP-KEY_VECTOR! X I Y)
((LAMBDA (X Y I Z)
(SET-MREF-8-U! X (FX+ Y (FX* 1 I)) ((LAMBDA (X) X) Z)))
(CHK-XEVENTP X)
20
I
Y))
(DEFINE (XEVENT-PAD X I)
((LAMBDA (X Y I) (MREF-INTEGER X (FX+ Y (FX* 4 I))))
(CHK-XEVENTP X)
0
I))
(DEFINE (XEVENT-PAD! X I Y)
((LAMBDA (X Y I Z)
(SET-MREF-INTEGER! X (FX+ Y (FX* 4 I)) ((LAMBDA (X) X) Z)))
(CHK-XEVENTP X)
0
I
Y))